home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Radio Active - The Music Trivia Game Show
/
Radio Active - The Music Trivia Game Show (1994)(Sanctuary Woods).iso
/
radactiv
/
radactiv.dir
/
00804_Field_804.txt
< prev
next >
Wrap
Text File
|
1994-11-20
|
4KB
|
63 lines
on SaveGame Named
global NumOfPlayers,UsedCheckCounter,SvGameName
global UsedQuestions,Player1,Player2,Player3,Player4,SndList,VidList
global YC1Songs,YC2Songs,YC3Songs,YC4Songs,YC5Songs,YC6Songs
global YC1Triv,YC2Triv,YC3Triv,YC4Triv,YC5Triv,YC6Triv,QFields
global GameGLobHolder,AudHelpDone,BonusList,BonusFills,BonusSndNames,PuzNum,PointHLList
Global UsedQ1E,UsedQ1M,UsedQ1H,UsedQ2E,UsedQ2M,UsedQ2H,UsedQ3E,UsedQ3M,UsedQ3H,UsedQ4E,UsedQ4M,UsedQ4H,UsedQ5E,UsedQ5M,UsedQ5H
--the first 9 are only used for saved games
put ("set NumOfPlayers =" & NumOfPlayers) into line 1 of GameGLobHolder
put ("set Player1=" & Player1) into line 2 of GameGLobHolder
put ("set Player2=" & Player2) into line 3 of GameGLobHolder
put ("set Player3=" & Player3) into line 4 of GameGLobHolder
put ("set Player4=" & Player4) into line 5 of GameGLobHolder
put ("set UsedCheckCounter=" & quote & UsedCheckCounter & quote) into line 6 of GameGLobHolder
put ("set UsedQuestions=" & UsedQuestions ) into line 7 of GameGLobHolder
put ("set PointHLList=" & PointHLList) into line 8 of GameGlobHolder
--the rest of these go into the settings file
if YC1songs >0 then put ("set YC1Songs=" & YC1Songs) into line 9 of GameGLobHolder
if YC2songs >0 then put ("set YC2Songs=" & YC2Songs) into line 10 of GameGLobHolder
if YC3songs >0 then put ("set YC3Songs=" & YC3Songs) into line 11 of GameGLobHolder
if YC4songs >0 then put ("set YC4Songs=" & YC4Songs) into line 12 of GameGLobHolder
if YC5songs >0 then put ("set YC5Songs=" & YC5Songs) into line 13 of GameGLobHolder
if YC6songs >0 then put ("set YC6Songs=" & YC6Songs) into line 14 of GameGLobHolder
if YC1Triv >0 then put ("set YC1Triv=" & YC1Triv) into line 15 of GameGLobHolder
if YC2Triv >0 then put ("set YC2Triv=" & YC2Triv) into line 16 of GameGLobHolder
if YC3Triv >0 then put ("set YC3Triv=" & YC3Triv) into line 17 of GameGLobHolder
if YC4Triv >0 then put ("set YC4Triv=" & YC4Triv) into line 18 of GameGLobHolder
if YC5Triv >0 then put ("set YC5Triv=" & YC5Triv) into line 19 of GameGLobHolder
if YC6Triv >0 then put ("set YC6Triv=" & YC6Triv) into line 20 of GameGLobHolder
if AudHelpDone > 0 then put ("Set AudHelpDone =" & AudHelpDone) into line 21 of GameGlobHolder
if BonusList > 0 then put ("set BonusList =" & BonusList) into line 22 of GameGLobHolder
if BonusFills > 0 then put ("set BonusFills =" & BonusFills) into line 23 of GameGLobHolder
if BonusSndNames > 0 then put ("set BonusSndNames =" & BonusSndNames) into line 24 of GameGLobHolder
if PuzNum > 0 then put ("set PuzNum =" & PuzNum) into line 25 of GameGLobHolder
if UsedQ1E <> [] then put ("set UsedQ1E=" & UsedQ1E) into line 26 of GameGLobHolder
if UsedQ1M <> [] then put ("set UsedQ1M=" & UsedQ1M) into line 27 of GameGLobHolder
if UsedQ1H <> [] then put ("set UsedQ1H=" & UsedQ1H) into line 28 of GameGLobHolder
if UsedQ2E <> [] then put ("set UsedQ2E=" & UsedQ2E) into line 29 of GameGLobHolder
if UsedQ2M <> [] then put ("set UsedQ2M=" & UsedQ2M) into line 30 of GameGLobHolder
if UsedQ2H <> [] then put ("set UsedQ1E=" & UsedQ1E) into line 31 of GameGLobHolder
if UsedQ3E <> [] then put ("set UsedQ3E=" & UsedQ3E) into line 32 of GameGLobHolder
if UsedQ3M <> [] then put ("set UsedQ3M=" & UsedQ3M) into line 33 of GameGLobHolder
if UsedQ3H <> [] then put ("set UsedQ3H=" & UsedQ3H) into line 34 of GameGLobHolder
if UsedQ4E <> [] then put ("set UsedQ4E=" & UsedQ4E) into line 35 of GameGLobHolder
if UsedQ4M <> [] then put ("set UsedQ4M=" & UsedQ4M) into line 36 of GameGLobHolder
if UsedQ4H <> [] then put ("set UsedQ4H=" & UsedQ4H) into line 37 of GameGLobHolder
if UsedQ5E <> [] then put ("set UsedQ5E=" & UsedQ5E) into line 38 of GameGLobHolder
if UsedQ5M <> [] then put ("set UsedQ5M=" & UsedQ5M) into line 39 of GameGLobHolder
if UsedQ5H <> [] then put ("set UsedQ5H=" & UsedQ5H) into line 40 of GameGLobHolder
put ("set SndList=" & SndList) into line 41 of GameGLobHolder
put ("set VidList=" & VidList) into line 42 of GameGLobHolder
put "RestoreQFields" into line 42 of GameGlobHolder
put empty into field "GlobalsSaved"
put GameGlobHolder into field "GlobalsSaved"
put Named
if Named = "NAME" then OpenTextToWrite SvGameName
if Named = "NoNAME" then OpenTextToWrite "Settings"
end SaveGame